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DIRECTORY 

lODefs: FROM "iodefs" USING [NumberFormat] . 
StreamDefs: FROM "streamdefs" USING [StreamHandle] , 
StringDefs: FROM "stringdefs" USING [Substring], 
TimeDefs: FROM "timedefs" USING [PackedTime] ; 

OutputDefs: DEFINITIONS - 
BEGIN 

PutTab: PROCEDURE; 
PutCR: PROCEDURE; 
PutChar: PROCEDURE [c:CHARACTER] ; 
PutString: PROCEDURE [s:STRING]; 
PutSubString: PROCEDURE [s :StringDefs .Substring] ; 
PutTime: PROCEDURE [t: TimeDefs .PackedTime] ; 
OpenOutput: PROCEDURE [root: STRING, ext: STRING]; 
CloseOutput: PROCEDURE; 
GetOutputStream: PROCEDURE RETURNS [StreamDefs .StreamHandle] ; 

-- numbers 

NumberFormat: TYPE = lODefs .NumberFormat ; 

PutOctal: PROCEDURE [val : UNSPECIFIED]; 

PutDecimal: PROCEDURE [val: CARDINAL]; 

PutNumber: PROCEDURE [val: CARDINAL, format: NumberFormat]; 

END.. . 


